home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / dev / src / MiniStat.lha / MiniStat / Old / MiniStat025.c < prev    next >
Encoding:
C/C++ Source or Header  |  2000-03-08  |  1.6 KB  |  97 lines

  1. #define CLEAR 12
  2. #include <stdio.h>
  3. #include <math.h>
  4.  
  5.    int i,q,a,ar,arm,asqrm,max,min,disp,v[100],vr[99];
  6.    float m,mr,mrm,msqrm,vrm[100],vsqrm[100];
  7.  
  8. main(){
  9.  
  10.     printf("\tMiniStat v.0.2.5 ©2000 by Encelo\n");
  11.  
  12.     printf("\nHow many decimal values do you want to insert?(Max 100): ");
  13.     scanf("%d",&q);
  14.     for (i=1;i<=q;i++)
  15.         {
  16.         printf("Value No.%d:",i);
  17.         scanf("%d",&v[i]);
  18.         }
  19.  
  20.     printf("\nOk, you have inserted all the %d values, now I'm calculating...\n\n",q);
  21.     for (i=1;i<=q;i++)
  22.         {
  23.         a+=v[i];
  24.         }
  25.     m=(float)s/q;
  26.     printf("The mean between the %d values is: %f\n",q,m);
  27.  
  28.     max=0;
  29.     for (i=1;i<=q;i++)
  30.         {
  31.         if (v[i]>max)
  32.             {
  33.                 max=v[i];
  34.             }
  35.         }
  36.     min=max;
  37.     for (i=1;i<=q;i++)
  38.         {
  39.         if (v[i]<min)
  40.             {
  41.                 min=v[i];
  42.             }
  43.         }
  44.     disp=max-min;
  45.     printf("Maximum value: %d\n",max);
  46.     printf("Minimum value: %d\n",min);
  47.     printf("The values dispersion is: %d\n",disp);
  48.  
  49.     for (i=1;i<=q-1;i++)
  50.         {
  51.         if (v[i]-v[i+1]>0)
  52.             {
  53.             vr[i]=v[i]-v[i+1];
  54.             }
  55.         else
  56.             {
  57.             vr[i]=v[i+1]-v[i];
  58.             }
  59.         }
  60.     for (i=1;i<=q-1;i++)
  61.         {
  62.         ar+=vr[i];
  63.         }
  64.     mr=(float)sr/(q-1);
  65.     printf("The mean between the %d rejectings between the values is: %f\n",q-1,mr);
  66.  
  67.     for (i=1;i<=q;i++)
  68.         {
  69.         if (v[i]-m>0)
  70.             {
  71.             vrm[i]=(float)v[i]-m;
  72.             }
  73.         else
  74.             {
  75.             vrm[i]=(float)m-v[i];
  76.             }
  77.         }
  78.     for (i=1;i<=q;i++)
  79.         {
  80.         arm+=vrm[i];
  81.         }
  82.     mrm=(float)srm/q;
  83.     printf("The mean between the %d rejectings from the global mean is: %f\n",q,mrm);
  84.  
  85.     for (i=1;i<=q;i++)
  86.         {
  87.         vsqrm[i]=vrm[i]*vrm[i];
  88.         }
  89.     for (i=1;i<=q;i++)
  90.         {
  91.         asqrm+=vsqrm[i];
  92.         }
  93.     msqrm=(float)ssqrm/q;
  94.     printf("The variant is: %f\n",msqrm);
  95.  
  96.     printf("The standard deviation is: %f\n",sqrt(msqrm));
  97. }